home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / INIT.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  899b  |  32 lines
  1. ;ini  --  initializes the LUTs (input & output)     23-7-87
  2. ;         same as 'ini', but no text
  3. ;****************************************
  4. int err
  5.  
  6. char naam[8]
  7. IMAGE winim
  8. int imnum=0
  9.  
  10. repeat
  11.   fprint naam 0 "%s" (getim WIN_BIT (++imnum))  ;256x256 winbeeld
  12.   winim = naam
  13.   if  naam[0] != 0  era winim
  14. until naam[0] == 0
  15.  
  16. lut 3 1 
  17. era fg
  18. err = chk lut 1 1 1    ;input LUT: lineair
  19. err = chk lut 2 1 1    ;LUT 1 (standard black/white)
  20. if err == 0            ;if no LUTs or FG skip rest
  21.   lut 2 2 5            ;LUT 2 (false colours)
  22.   lut 2 3 1            ;LUT 3 (graphics)
  23.   lut 2 3 7 1          ;red in bit 1
  24.   lut 2 4 1            ;LUT 4 (CLP)
  25.   lut 2 4 7 1          ;red in bit 1
  26.   lut 2 4 8 2          ;green in bit 2
  27.   lut 2 4 9 3          ;blue in bit 3
  28.   lut 2 1            ; select LUT 1 (standard black/white)
  29. endif
  30. lcset standard
  31. stop "Characterset STANDARD loaded"
  32.